home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sdg.d64 / border 2 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  385b  |  13 lines
  1. 10 X=2:Y=7
  2. 20 FORJ=2TO11STEP2:POKE53281,J:POKE53280,J
  3. 30 FORI=1TO40STEP2
  4. 40 POKE1023+I,81:POKE55295+I,X:POKE1024+I,81:POKE55296+I,Y
  5. 50 POKE2024-I,81:POKE56296-I,X:POKE2023-I,81:POKE56295-I,Y
  6. 60 NEXTI:POKE53281,J+1:POKE53280,J+1
  7. 70 FORI=1TO23STEP2
  8. 80 POKE1984-40*I,81:POKE56256-40*I,X:POKE1984-40*(I+1),81:POKE56256-40*(I+1),Y
  9. 90 POKE1063+40*I,81:POKE55335+40*I,X:POKE1063+40*(I+1),81:POKE55335+40*(I+1),Y
  10. 100 NEXTI
  11. 110 Z=X:X=Y:Y=Z:NEXTJ
  12. 120 POKE53281,6:POKE53280,6
  13.